home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / DRIVES.SWG / 0083_Valid Drives.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-25  |  1KB  |  56 lines
  1.  
  2. program valid_drv;
  3.  
  4. uses dos;
  5.  
  6. { 
  7. Function ready_drives reports as valid only drives that are 
  8. ready to be read. Findfirst does not cause a critical error even 
  9. if a floppy is not ready and in machines with a single floppy 
  10. the prompt to insert a diskette when testing for the B: drive 
  11. (from IO.SYS) is avoided by the use of DOS services $4408 and 
  12. $440E (requires DOS 3.2 or up). - 
  13. Jose Campione (1:163/513.3) August 1994 -
  14. } 
  15.  
  16. function ready_drives: string;
  17. var
  18.   regs : registers;
  19.   i : byte;
  20.   drs: string;
  21.   sr : searchrec;
  22.  
  23.   function is_last(d:byte):boolean;
  24.   {true if d is the only or the last name assigned to that drive}
  25.   begin
  26.     regs.ax:= $440E;
  27.     regs.bl:= d;
  28.     msdos(regs);
  29.     is_last:= ((regs.flags and fcarry) = 0) and ((regs.al = 0) or (regs.al = d));
  30.   end;
  31.  
  32.   function is_floppy(d: byte): boolean;
  33.   {true if d is a removable medium}
  34.   begin
  35.     regs.ax:= $4408;
  36.     regs.bl:= d;
  37.     msdos(regs);
  38.     is_floppy := ((regs.flags and fcarry) = 0) and (regs.ax = 0);
  39.   end;
  40.  
  41. begin
  42.   drs:= '';
  43.   for i:= 1 to 26 do begin
  44.     if (not is_floppy(i)) or is_last(i) then begin
  45.       findfirst(chr(i + 64) + ':\*.*',AnyFile,sr);
  46.       if doserror = 0 then drs:= drs + chr(i + 64);
  47.     end;
  48.   end;
  49.   ready_drives:= drs;
  50. end;
  51.  
  52. begin
  53.   writeln('drives ready : ',ready_drives);
  54. end.
  55.  
  56.